Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.4/Group1/Demo8E.exe/0/RCDATA/TQRGIZKARFORM/TQRGIZKARFORM.txt

Text File | 1998-07-30 | 10KB | 447 lines

object QRGizKarForm: TQRGizKarForm
  Left = 200
  Top = 175
  Width = 324
  Height = 191
  HorzScrollBar.Range = 1200
  HorzScrollBar.Position = 39
  VertScrollBar.Range = 2000
  AutoScroll = False
  Caption = 'Al��� Girilmi� �r�nlerin Kar Tutarlar�'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 14
  object Title: TQRBand
    Left = -39
    Top = 0
    Width = 1200
    Height = 42
    Align = alTop
    BandType = rbTitle
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Ruler = qrrNone
    object QRLabel7: TQRLabel
      Left = 146
      Top = 22
      Width = 307
      Height = 16
      Caption = 'Giri� Fiyat Belli Olan �r�nlerinlerin Kar Tutarlar�'
      AlignToBand = False
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabelTRh: TQRLabel
      Left = 276
      Top = 4
      Width = 18
      Height = 14
      Caption = '___'
      AlignToBand = False
    end
  end
  object PageHeader: TQRBand
    Left = -39
    Top = 42
    Width = 1200
    Height = 24
    Align = alTop
    BandType = rbPageHeader
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ForceNewPage = False
    Frame.Width = 0
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    ParentFont = False
    Ruler = qrrNone
    object PageNumber: TQRSysData
      Left = 606
      Top = 4
      Width = 68
      Height = 17
      Alignment = taRightJustify
      AlignToBand = True
      Data = qrsPageNumber
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Text = 'Sayfa No: '
    end
    object QRLabel1: TQRLabel
      Left = 61
      Top = 4
      Width = 39
      Height = 14
      Caption = '�la� Ad�'
      AlignToBand = False
    end
    object QRLabel2: TQRLabel
      Left = 253
      Top = 4
      Width = 57
      Height = 14
      Caption = 'Giri� Fiyat�'
      AlignToBand = False
    end
    object QRLabel4: TQRLabel
      Left = 481
      Top = 4
      Width = 26
      Height = 14
      Caption = 'Adet'
      AlignToBand = False
    end
    object QRLabel5: TQRLabel
      Left = 529
      Top = 4
      Width = 53
      Height = 14
      Caption = 'Kar Tutar�'
      AlignToBand = False
    end
    object QRLabel8: TQRLabel
      Left = 370
      Top = 4
      Width = 59
      Height = 14
      Caption = '��k�� Fiyat�'
      AlignToBand = False
    end
    object QRLabel3: TQRLabel
      Left = 6
      Top = 4
      Width = 44
      Height = 14
      Caption = 'Sat�� No'
      AlignToBand = False
    end
  end
  object Detail: TQRBand
    Left = -39
    Top = 66
    Width = 1200
    Height = 24
    AfterPrint = DetailAfterPrint
    Align = alTop
    BandType = rbDetail
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Ruler = qrrNone
    object QRDBText1: TQRDBText
      Left = 57
      Top = 4
      Width = 191
      Height = 17
      AlignToBand = False
      DataSource = DS_Sat_Tab
      DataField = 'ILACADI'
    end
    object QRDBText2: TQRDBText
      Left = 252
      Top = 4
      Width = 111
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      DataSource = DS_QUrhrk
      DataField = 'MAX OF GIRFIYAT'
    end
    object QRDBText3: TQRDBText
      Left = 485
      Top = 4
      Width = 25
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      DataSource = DS_Sat_Tab
      DataField = 'MIKTAR'
    end
    object QRDBText4: TQRDBText
      Left = 366
      Top = 4
      Width = 111
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      DataSource = DS_Sat_Tab
      DataField = 'FIYAT'
    end
    object QRDBText5: TQRDBText
      Left = 512
      Top = 4
      Width = 111
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      DataSource = DS_QUrhrk
      DataField = 'KAR'
    end
    object QRDBText6: TQRDBText
      Left = 2
      Top = 4
      Width = 45
      Height = 17
      AlignToBand = False
      DataSource = DS_Sat_Tab
      DataField = 'SATISNO'
    end
  end
  object PageFooter: TQRBand
    Left = -39
    Top = 90
    Width = 1200
    Height = 33
    Align = alTop
    BandType = rbPageFooter
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Ruler = qrrNone
    object QRDateTime: TQRSysData
      Left = 5
      Top = 11
      Width = 185
      Height = 14
      AlignToBand = False
      AutoSize = True
      Data = qrsDateTime
      Text = 'D�k�m Bas�m Trh:'
    end
    object QRLabel6: TQRLabel
      Left = 402
      Top = 11
      Width = 41
      Height = 14
      Caption = 'Toplam'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabel9: TQRLabel
      Left = 468
      Top = 11
      Width = 135
      Height = 14
      Alignment = taRightJustify
      Caption = 'QRLabel9'
      AlignToBand = False
      OnPrint = QRLabel9Print
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 300
    Height = 148
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel1'
    Color = clTeal
    TabOrder = 4
    object Label1: TLabel
      Left = 6
      Top = 6
      Width = 288
      Height = 42
      Align = alTop
      Caption =
        'Al��� Girilmi� �r�nlerin �lgili Oldu�u Tarihin En Y�ksek Giri� F' +
        'iyat�na G�re Karl�l�k De�erlendirmesi'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object BitBtn1: TBitBtn
      Left = 181
      Top = 44
      Width = 105
      Height = 25
      Caption = '&�n �zleme/Yazd�r'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object RadioGroup1: TRadioGroup
      Left = 7
      Top = 44
      Width = 161
      Height = 97
      Caption = 'Sat�� Tipi'
      Color = clSilver
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ItemIndex = 0
      Items.Strings = (
        'Perakende Sat��lar'
        'Re�eteli Sat��lar'
        'Fatural� Sat��lar'
        'Re�.li Fat. Sat��lar'
        'T�m Sat��lar')
      ParentColor = False
      ParentFont = False
      TabOrder = 1
    end
    object BitBtn2: TBitBtn
      Left = 181
      Top = 113
      Width = 105
      Height = 25
      Caption = 'Kapa&t'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      Kind = bkClose
    end
  end
  object QuickReport: TQuickReport
    DataSource = DS_Sat_Tab
    ColumnMarginInches = 0
    ColumnMarginMM = 0
    Columns = 1
    DisplayPrintDialog = False
    LeftMarginInches = 0
    LeftMarginMM = 0
    Orientation = poPortrait
    PageFrame.DrawTop = False
    PageFrame.DrawBottom = False
    PageFrame.DrawLeft = False
    PageFrame.DrawRight = False
    PaperLength = 0
    PaperSize = qrpDefault
    PaperWidth = 0
    ReportTitle = 'QuickReport Template'
    RestartData = True
    SQLCompatible = False
    TitleBeforeHeader = True
    Left = 96
    Top = 100
  end
  object QUrhrk: TQuery
    OnCalcFields = QUrhrkCalcFields
    DatabaseName = 'ECZ'
    DataSource = DS_Sat_Tab
    Params.Data = {
      0100020006494C41434E4F000304000100000000000753415441524948000B08
      00003ED78384A7CC420000}
    SQL.Strings = (
      'SELECT'
      'MAX(URUNHRK.GIRFIYAT)'
      'FROM URUNHRK'
      'WHERE'
      '(URUNHRK.ILACNO=:ILACNO) AND'
      '(URUNHRK.GCTARIH<=:SATARIH) AND'
      '(URUNHRK.GIRFIYAT IS NOT NULL)')
    Left = 132
    Top = 72
    object QUrhrkMAXOFGIRFIYAT: TCurrencyField
      FieldName = 'MAX OF GIRFIYAT'
    end
    object QUrhrkKAR: TCurrencyField
      Calculated = True
      FieldName = 'KAR'
    end
  end
  object DS_QUrhrk: TDataSource
    DataSet = QUrhrk
    Left = 164
    Top = 72
  end
  object DS_Sat_Tab: TDataSource
    DataSet = Sat_Tab
    Left = 228
    Top = 16
  end
  object Table1: TTable
    DatabaseName = 'ECZ'
    ReadOnly = True
    TableName = 'URUN.DB'
    Left = 134
    Top = 112
  end
  object Sat_Tab: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {
      0100040006626173747268000B0800000084353AA4CC42000106736F6E747268
      000B080000001A0EE6A7CC420001037469700001020050000001037469700001
      020050000001}
    SQL.Strings = (
      'SELECT *'
      'FROM SATIS'
      'WHERE '
      '(SATIS.SATARIH>=:bastrh) AND'
      '(SATIS.SATARIH<=:sontrh) AND'
      '(SATIS.PARAKENDE=:tip  OR :tip IS NULL)'
      'ORDER BY SATISNO')
    Left = 244
    Top = 80
    object Sat_TabILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object Sat_TabFIYAT: TCurrencyField
      FieldName = 'FIYAT'
    end
    object Sat_TabILACADI: TStringField
      FieldName = 'ILACADI'
      Lookup = True
      LookupDataSet = Table1
      LookupKeyFields = 'ILACNO'
      LookupResultField = 'ILACAD'
      KeyFields = 'ILACNO'
      Size = 36
    end
    object Sat_TabSATARIH: TDateTimeField
      FieldName = 'SATARIH'
    end
    object Sat_TabMIKTAR: TIntegerField
      FieldName = 'MIKTAR'
    end
    object Sat_TabSATISNO: TFloatField
      FieldName = 'SATISNO'
    end
  end
end